home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / win_u_z / vxb102.zip / VXBTEST.ZIP / VXBTEST.BAS < prev    next >
BASIC Source File  |  1991-12-04  |  24KB  |  555 lines

  1. ' vxBase Sample Application
  2. ' Aircraft Brokerage System
  3. ' ------------------------
  4.  
  5. ' Declare file select areas as Global
  6. ' so they can be accessed from any form
  7. ' -------------------------------------
  8. Global AirtypesDbf As Integer
  9. Global AirTypesNtx As Integer
  10. Global AircustDbf As Integer
  11. Global Aircust1Ntx As Integer
  12. Global Aircust2Ntx As Integer
  13. Global Aircust3Ntx As Integer
  14. Global AirstateDbf As Integer
  15. Global Airstat1Ntx As Integer
  16. Global Airstat2Ntx As Integer
  17. Global AirbuyerDbf As Integer
  18. Global Airbuy1Ntx As Integer
  19. Global Airbuy2Ntx As Integer
  20. Global AircraftDbf As Integer
  21. Global Aircraf1Ntx As Integer
  22. Global Aircraf2Ntx As Integer
  23.  
  24. ' vars for each browse return so other forms can interrogate
  25. ' ----------------------------------------------------------
  26. Global TypeReturn As Long
  27. Global CustReturn As Long
  28. Global BuyerReturn As Long
  29. Global AircraftReturn As Long
  30. Global StateReturn As Long
  31.  
  32. ' vars to hold internal linkage keys
  33. ' ----------------------------------
  34. Global CustKey As String
  35. Global TypeKey As String
  36. Global BuyerRec As Long
  37.  
  38. ' Form active vars so we can test if any active
  39. ' when we close the system down in vxform1
  40. ' ----------------------------------------------
  41. Global Form2Active As Integer
  42. Global Form3Active As Integer
  43. Global Form4Active As Integer
  44. Global Form5Active As Integer
  45. Global Form6Active As Integer
  46. Global Form7Active As Integer
  47.  
  48. ' Define some WINAPI stuff to limit text length and change cursors
  49. ' ----------------------------------------------------------------
  50. Declare Function GetFocus% Lib "user" ()
  51. Declare Function SetFocusApi Lib "user" Alias "SetFocus" (ByVal Hwnd As Integer) As Integer
  52. Declare Function SendMessage& Lib "user" (ByVal Hwnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  53. Global Const WM_USER = &H400
  54. Global Const EM_LIMITTEXT = WM_USER + 21
  55.  
  56. Declare Function LoadCursor Lib "user" (ByVal hInstance As Integer, ByVal CursorName As Long) As Integer
  57. Declare Function SetCursor Lib "user" (ByVal hCursor As Integer) As Integer
  58. Global Const IDC_WAIT = 32514&
  59. Global Const IDC_ARROW = 32512&
  60.  
  61. ' winapi stuff to limit to a single app
  62. ' -------------------------------------
  63. Declare Function FindWindow Lib "user" (ByVal ClassName As Any, ByVal Caption As Any) As Integer
  64.  
  65. ' ----------------------------------------------
  66. ' vxBase.txt contains the necessary declarations
  67. ' to run vxBase from Visual Basic
  68. ' ----------------------------------------------
  69. ' vxBase Global Constants
  70. ' -----------------------
  71. Global Const BROWSE_CLOSED = -1
  72. Global Const BROWSE_EDIT = -2
  73. Global Const BROWSE_ADD = -3
  74. Global Const BROWSE_DELETE = -4
  75. Global Const BROWSE_ERROR = -5
  76. Global Const BROWSE_USER = -6
  77.  
  78. ' vxBase Color References for user tables
  79. ' ---------------------------------------
  80. Global Const VX_RED = &HFF
  81. Global Const VX_BLUE = &HFF0000
  82. Global Const VX_GRAY = &HC0C0C0
  83.  
  84. ' vxBase Control style modes
  85. ' --------------------------
  86. Global Const VX_RAISE = 0
  87. Global Const VX_RECESS = 1
  88. Global Const VX_CREASE = 2
  89.  
  90. ' vxBase Table Field Types
  91. ' ------------------------
  92. Global Const VX_FIELD = 0
  93. Global Const VX_EXPR = 1
  94.  
  95. ' browse case types
  96. ' -----------------
  97. Global Const VX_UPPER = 0
  98. Global Const VX_LOWER = 1
  99.  
  100. ' vxBase CALLed Sub Procedures
  101. ' ----------------------------
  102. Declare Sub vxBrowse Lib "vxbase.dll" (ByVal Hwnd%, ByVal DbfArea%, ByVal NtxArea%, ByVal EditMode%, ByVal AllowFilter%, ByVal EditMenu%, ByVal StartRec&, ByVal Caption$, RetVal&)
  103. Declare Sub vxBrowseCase Lib "vxbase.dll" (ByVal DefCase As Integer)
  104. Declare Sub vxCtlGrayReset Lib "vxbase.dll" ()
  105. Declare Sub vxCtlGraySet Lib "vxbase.dll" ()
  106. Declare Sub vxCtlLength Lib "vxbase.dll" (ByVal Hwnd As Integer, ByVal FieldName As String)
  107. Declare Sub vxCtlStyle Lib "vxbase.dll" (CtlName As Any, ByVal Mode As Integer)
  108. Declare Sub vxDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  109. Declare Sub vxExactOff Lib "vxbase.dll" ()
  110. Declare Sub vxExactOn Lib "vxbase.dll" ()
  111. Declare Sub vxFilter Lib "vxbase.dll" (ByVal FilterString As String)
  112. Declare Sub vxFilterReset Lib "vxbase.dll" ()
  113. Declare Sub vxFormFrame Lib "vxbase.dll" (ByVal Hwnd As Integer)
  114. Declare Sub vxJoin Lib "vxbase.dll" (ByVal DbfArea As Integer, ByVal NtxArea As Integer, ByVal JoinExpr As String, ByVal KeyType As Integer, ByVal JoinTitle As String)
  115. Declare Sub vxJoinReset Lib "vxbase.dll" ()
  116. Declare Sub vxMemoEdit Lib "vxbase.dll" (ByVal Hwnd As Integer, ByVal FieldName As String)
  117. Declare Sub vxReplDate Lib "vxbase.dll" (ByVal FieldName As String, ByVal DateString As String)
  118. Declare Sub vxReplDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  119. Declare Sub vxReplInteger Lib "vxbase.dll" (ByVal FieldName As String, IntAmount As Integer)
  120. Declare Sub vxReplLong Lib "vxbase.dll" (ByVal FieldName As String, LongInt As Long)
  121. Declare Sub vxReplString Lib "vxbase.dll" (ByVal FieldName As String, ByVal FieldString As String)
  122. Declare Sub vxSetErrorCaption Lib "vxbase.dll" (ByVal CaptionString As String)
  123. Declare Sub vxSetupPrinter Lib "vxbase.dll" (ByVal Hwnd As Integer)
  124. Declare Sub vxSum Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  125. Declare Sub vxTableDeclare Lib "vxbase.dll" (ByVal ColorRef&, BofExpr As Any, EofExpr As Any, ByVal Scope%, ByVal Quick%, ByVal Columns%)
  126. Declare Sub vxTableField Lib "vxbase.dll" (ByVal ColIndex As Integer, ByVal ColHead As String, ByVal ColExpr As String, ByVal ColType As Integer)
  127. Declare Sub vxTableReset Lib "vxbase.dll" ()
  128. Declare Sub vxWindowDereg Lib "vxbase.dll" (ByVal Hwnd As Integer)
  129.  
  130.  
  131. ' vxBase Functions
  132. ' ----------------
  133. Declare Function vxAppendBlank Lib "vxbase.dll" () As Integer
  134. Declare Function vxAppendFrom Lib "vxbase.dll" (ByVal FromFile As String) As Integer
  135. Declare Function vxAreaDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  136. Declare Function vxAreaNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  137. Declare Function vxBof Lib "vxbase.dll" () As Integer
  138. Declare Function vxBottom Lib "vxbase.dll" () As Integer
  139. Declare Function vxChar Lib "vxbase.dll" (ByVal FieldName As String) As String
  140. Declare Function vxClose Lib "vxbase.dll" () As Integer
  141. Declare Function vxCloseAll Lib "vxbase.dll" () As Integer
  142. Declare Function vxCloseNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  143. Declare Function vxCopy Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  144. Declare Function vxCopyStruc Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  145. Declare Function vxCreateNtx Lib "vxbase.dll" (ByVal NewNtxName As String, ByVal NtxExpr As String) As Integer
  146. Declare Function vxDateFormat Lib "vxbase.dll" (ByVal DateField As String) As String
  147. Declare Function vxDbfName Lib "vxbase.dll" () As String
  148. Declare Function vxDecimals Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  149. Declare Function vxDeleted Lib "vxbase.dll" () As Integer
  150. Declare Function vxDeleteRange Lib "vxbase.dll" (ByVal StartRec As Long, ByVal EndRec As Long) As Integer
  151. Declare Function vxDeleteRec Lib "vxbase.dll" () As Integer
  152. Declare Function vxEmpty Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  153. Declare Function vxEof Lib "vxbase.dll" () As Integer
  154. Declare Function vxField Lib "vxbase.dll" (ByVal FieldName As String) As String
  155. Declare Function vxFieldCount Lib "vxbase.dll" () As Integer
  156. Declare Function vxFieldName Lib "vxbase.dll" (ByVal FieldNumber As Integer) As String
  157. Declare Function vxFieldSize Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  158. Declare Function vxFieldType Lib "vxbase.dll" (ByVal FieldName As String) As String
  159. Declare Function vxFile Lib "vxbase.dll" (ByVal FileName As String) As Integer
  160. Declare Function vxFound Lib "vxbase.dll" () As Integer
  161. Declare Function vxGo Lib "vxbase.dll" (ByVal RecNum As Long) As Integer
  162. Declare Function vxInteger Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  163. Declare Function vxIsMemo Lib "vxbase.dll" (ByVal MemoFieldName As String) As Integer
  164. Declare Function vxLockDbf Lib "vxbase.dll" () As Integer
  165. Declare Function vxLocked Lib "vxbase.dll" () As Integer
  166. Declare Function vxLockRecord Lib "vxbase.dll" () As Integer
  167. Declare Function vxLong Lib "vxbase.dll" (ByVal FieldName As String) As Long
  168. Declare Function vxMemoRead Lib "vxbase.dll" (ByVal FieldName As String, ByVal LineWidth As Integer) As String
  169. Declare Function vxNtxDeselect Lib "vxbase.dll" () As Integer
  170. Declare Function vxNtxExpr Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  171. Declare Function vxNtxName Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  172. Declare Function vxNumRecs Lib "vxbase.dll" () As Long
  173. Declare Function vxPack Lib "vxbase.dll" (ByVal Hwnd As Integer) As Integer
  174. Declare Function vxRecall Lib "vxbase.dll" () As Integer
  175. Declare Function vxRecNo Lib "vxbase.dll" () As Long
  176. Declare Function vxRecSize Lib "vxbase.dll" () As Integer
  177. Declare Function vxReindex Lib "vxbase.dll" () As Integer
  178. Declare Function vxReplMemo Lib "vxbase.dll" (ByVal FieldName As String, ByVal MemoString As String) As Integer
  179. Declare Function vxSeek Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  180. Declare Function vxSeekSoft Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  181. Declare Function vxSelectDbf Lib "vxbase.dll" (ByVal DbfArea As Integer) As Integer
  182. Declare Function vxSelectNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  183. Declare Function vxSkip Lib "vxbase.dll" (ByVal NumRecords As Long) As Integer
  184. Declare Function vxTop Lib "vxbase.dll" () As Integer
  185. Declare Function vxTrue Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  186. Declare Function vxUnlock Lib "vxbase.dll" () As Integer
  187. Declare Function vxUseDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  188. Declare Function vxUseNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  189. Declare Function vxWrite Lib "vxbase.dll" () As Integer
  190. Declare Function vxZap Lib "vxbase.dll" () As Integer
  191.  
  192.  
  193. ' ---------------------------------------
  194. ' File structure data type. Add more
  195. ' elements or delete unnecessary elements
  196. ' as required by the largest dbf creation
  197. ' in your application
  198. ' ---------------------------------------
  199.  
  200. Type FileStruc
  201.    Fld01 As String * 16
  202.    Fld02 As String * 16
  203.    Fld03 As String * 16
  204.    Fld04 As String * 16
  205.    Fld05 As String * 16
  206.    Fld06 As String * 16
  207.    Fld07 As String * 16
  208.    Fld08 As String * 16
  209.    Fld09 As String * 16
  210.    Fld10 As String * 16
  211.    Fld11 As String * 16
  212.    Fld12 As String * 16
  213.    Fld13 As String * 16
  214.    Fld14 As String * 16
  215.    Fld15 As String * 16
  216.    Fld16 As String * 16
  217.    Fld17 As String * 16
  218.    Fld18 As String * 16
  219.    Fld19 As String * 16
  220.    Fld20 As String * 16
  221.    Fld21 As String * 16
  222.    Fld22 As String * 16
  223.    Fld23 As String * 16
  224.    Fld24 As String * 16
  225.    Fld25 As String * 16
  226.    Fld26 As String * 16
  227.    Fld27 As String * 16
  228.    Fld28 As String * 16
  229.    Fld29 As String * 16
  230.    Fld30 As String * 16
  231.    Fld31 As String * 16
  232.    Fld32 As String * 16
  233. End Type
  234.  
  235. ' declare functions that use FileStruc type
  236. ' -----------------------------------------
  237. Declare Function vxCreateDbf Lib "vxbase.dll" (ByVal NewDbfName As String, ByVal NumFields As Integer, FStructure As FileStruc) As Integer
  238.  
  239. '============================================================================'
  240. '                                                                            '
  241. ' Visual Basic global constant file.  This file can be loaded into the       '
  242. ' global module.                                                             '
  243. '                                                                            '
  244. ' Some constants are commented out because they have duplicates (for         '
  245. ' example, NONE appears in several places).                                  '
  246. '                                                                            '
  247. '============================================================================'
  248.  
  249. '========='
  250. '         '
  251. ' General '
  252. '         '
  253. '========='
  254.  
  255. ' Booleans
  256. Global Const TRUE = -1
  257. Global Const FALSE = 0
  258.  
  259. '=================='
  260. '                  '
  261. ' Event parameters '
  262. '                  '
  263. '=================='
  264.  
  265. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  266. Global Const SHIFT_MASK = 1
  267. Global Const CTRL_MASK = 2
  268. Global Const ALT_MASK = 4
  269. Global Const LEFT_BUTTON = 1
  270. Global Const RIGHT_BUTTON = 2
  271. Global Const MIDDLE_BUTTON = 4
  272.  
  273. ' ErrNum (LinkError)
  274. Global Const WRONG_FORMAT = 1
  275. Global Const REQUEST_WITHOUT_INIT = 2
  276. Global Const DDE_WITHOUT_INIT = 3
  277. Global Const ADVISE_WITHOUT_INIT = 4
  278. Global Const POKE_WITHOUT_INIT = 5
  279. Global Const DDE_SERVER_CLOSED = 6
  280. Global Const TOO_MANY_LINKS = 7
  281. Global Const STRING_TOO_LONG = 8
  282. Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9
  283. Global Const UNEXPECTED_DDE = 10
  284. Global Const OUT_OF_MEMORY = 11
  285. Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12
  286.  
  287. ' KeyCode (KeyDown, KeyUp)
  288. Global Const KEY_LBUTTON = &H1
  289. Global Const KEY_RBUTTON = &H2
  290. Global Const KEY_CANCEL = &H3
  291. Global Const KEY_MBUTTON = &H4         ' NOT contiguous with L & RBUTTON
  292. Global Const KEY_BACK = &H8
  293. Global Const KEY_TAB = &H9
  294. Global Const KEY_CLEAR = &HC
  295. Global Const KEY_RETURN = &HD
  296. Global Const KEY_SHIFT = &H10
  297. Global Const KEY_CONTROL = &H11
  298. Global Const KEY_MENU = &H12
  299. Global Const KEY_PAUSE = &H13
  300. Global Const KEY_CAPITAL = &H14
  301. Global Const KEY_ESCAPE = &H1B
  302. Global Const KEY_SPACE = &H20
  303. Global Const KEY_PRIOR = &H21
  304. Global Const KEY_NEXT = &H22
  305. Global Const KEY_END = &H23
  306. Global Const KEY_HOME = &H24
  307. Global Const KEY_LEFT = &H25
  308. Global Const KEY_UP = &H26
  309. Global Const KEY_RIGHT = &H27
  310. Global Const KEY_DOWN = &H28
  311. Global Const KEY_SELECT = &H29
  312. Global Const KEY_PRINT = &H2A
  313. Global Const KEY_EXECUTE = &H2B
  314. Global Const KEY_SNAPSHOT = &H2C
  315. Global Const KEY_INSERT = &H2D
  316. Global Const KEY_DELETE = &H2E
  317. Global Const KEY_HELP = &H2F
  318.  
  319. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  320. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  321.  
  322. Global Const KEY_NUMPAD0 = &H60
  323. Global Const KEY_NUMPAD1 = &H61
  324. Global Const KEY_NUMPAD2 = &H62
  325. Global Const KEY_NUMPAD3 = &H63
  326. Global Const KEY_NUMPAD4 = &H64
  327. Global Const KEY_NUMPAD5 = &H65
  328. Global Const KEY_NUMPAD6 = &H66
  329. Global Const KEY_NUMPAD7 = &H67
  330. Global Const KEY_NUMPAD8 = &H68
  331. Global Const KEY_NUMPAD9 = &H69
  332. Global Const KEY_MULTIPLY = &H6A
  333. Global Const KEY_ADD = &H6B
  334. Global Const KEY_SEPARATOR = &H6C
  335. Global Const KEY_SUBTRACT = &H6D
  336. Global Const KEY_DECIMAL = &H6E
  337. Global Const KEY_DIVIDE = &H6F
  338. Global Const KEY_F1 = &H70
  339. Global Const KEY_F2 = &H71
  340. Global Const KEY_F3 = &H72
  341. Global Const KEY_F4 = &H73
  342. Global Const KEY_F5 = &H74
  343. Global Const KEY_F6 = &H75
  344. Global Const KEY_F7 = &H76
  345. Global Const KEY_F8 = &H77
  346. Global Const KEY_F9 = &H78
  347. Global Const KEY_F10 = &H79
  348. Global Const KEY_F11 = &H7A
  349. Global Const KEY_F12 = &H7B
  350. Global Const KEY_F13 = &H7C
  351. Global Const KEY_F14 = &H7D
  352. Global Const KEY_F15 = &H7E
  353. Global Const KEY_F16 = &H7F
  354. Global Const KEY_NUMLOCK = &H90
  355.  
  356. ' State (DragOver)
  357. Global Const ENTER = 0
  358. Global Const LEAVE = 1
  359. Global Const OVER = 2
  360.  
  361. '====================='
  362. '                     '
  363. ' Function parameters '
  364. '                     '
  365. '====================='
  366.  
  367. ' MsgBox parameters
  368. Global Const MB_OK = 0                 ' OK button only
  369. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  370. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  371. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  372. Global Const MB_YESNO = 4              ' Yes and No buttons
  373. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  374.  
  375. Global Const MB_ICONSTOP = 16          ' Critical message
  376. Global Const MB_ICONQUESTION = 32      ' Warning query
  377. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  378. Global Const MB_ICONINFORMATION = 64   ' Information message
  379.  
  380. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  381. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  382. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  383.  
  384. ' MsgBox return values
  385. Global Const IDOK = 1                  ' OK button pressed
  386. Global Const IDCANCEL = 2              ' Cancel button pressed
  387. Global Const IDABORT = 3               ' Abort button pressed
  388. Global Const IDRETRY = 4               ' Retry button pressed
  389. Global Const IDIGNORE = 5              ' Ignore button pressed
  390. Global Const IDYES = 6                 ' Yes button pressed
  391. Global Const IDNO = 7                  ' No button pressed
  392.  
  393.  
  394. '==================='
  395. '                   '
  396. ' Method parameters '
  397. '                   '
  398. '==================='
  399.  
  400. ' Drag (controls)
  401. Global Const CANCEL = 0
  402. Global Const BEGIN_DRAG = 1
  403. Global Const END_DRAG = 2
  404.  
  405. ' GetData, GetFormat, SetData (Clipboard)
  406. Global Const CF_LINK = &HBF00
  407. Global Const CF_TEXT = 1
  408. Global Const CF_BITMAP = 2
  409. Global Const CF_METAFILE = 3
  410. Global Const CF_DIB = 8
  411.  
  412. ' Show (form)
  413. Global Const MODAL = 1
  414. Global Const MODELESS = 0
  415.  
  416. '================='
  417. '                 '
  418. ' Property values '
  419. '                 '
  420. '================='
  421.  
  422. ' Alignment (label)
  423. Global Const LEFT_JUSTIFY = 0          ' 0 - Left Justify
  424. Global Const RIGHT_JUSTIFY = 1         ' 1 - Right Justify
  425. Global Const CENTER = 2                ' 2 - Center
  426.  
  427. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  428. Global Const BLACK = &H0&
  429. Global Const RED = &HFF&
  430. Global Const GREEN = &HFF00&
  431. Global Const YELLOW = &HFFFF&
  432. Global Const BLUE = &HFF0000
  433. Global Const MAGENTA = &HFF00FF
  434. Global Const CYAN = &HFFFF00
  435. Global Const WHITE = &HFFFFFF
  436.  
  437. ' BackColor, ForeColor, FillColor (system colors: form, controls)
  438. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  439. Global Const DESKTOP = &H80000001               ' Desktop.
  440. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  441. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  442. Global Const MENU_BAR = &H80000004              ' Menu background.
  443. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  444. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  445. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  446. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  447. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  448. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  449. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  450. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  451. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  452. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  453. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  454. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  455. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  456. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  457.  
  458. ' BorderStyle (form, label, picture box, text box)
  459. Global Const NONE = 0                  ' 0 - None
  460. Global Const FIXED_SINGLE = 1          ' 1 - Fixed Single
  461. Global Const SIZABLE = 2               ' 2 - Sizable (Forms only)
  462. Global Const FIXED_DOUBLE = 3          ' 3 - Fixed Double (Forms only)
  463.  
  464. ' DragMode (controls)
  465. Global Const MANUAL = 0                ' 0 - Manual
  466. Global Const AUTOMATIC = 1             ' 1 - Automatic
  467.  
  468. ' DrawMode (form, picture box, Printer)
  469. Global Const BLACKNESS = 1             ' 1 - Blackness
  470. Global Const NOT_MERGE_PEN = 2         ' 2 - Not Merge Pen
  471. Global Const MASK_NOT_PEN = 3          ' 3 - Mask Not Pen
  472. Global Const NOT_COPY_PEN = 4          ' 4 - Not Copy Pen
  473. Global Const MASK_PEN_NOT = 5          ' 5 - Mask Pen Not
  474. Global Const INVERT = 6                ' 6 - Invert
  475. Global Const XOR_PEN = 7               ' 7 - Xor Pen
  476. Global Const NOT_MASK_PEN = 8          ' 8 - Not Mask Pen
  477. Global Const MASK_PEN = 9              ' 9 - Mask Pen
  478. Global Const NOT_XOR_PEN = 10          ' 10 - Not Xor Pen
  479. Global Const NOP = 11                  ' 11 - Nop
  480. Global Const MERGE_NOT_PEN = 12        ' 12 - Merge Not Pen
  481. Global Const COPY_PEN = 13             ' 13 - Copy Pen
  482. Global Const MERGE_PEN_NOT = 14        ' 14 - Merge Pen Not
  483. Global Const MERGE_PEN = 15            ' 15 - Merge Pen
  484. Global Const WHITENESS = 16            ' 16 - Whiteness
  485.  
  486. ' DrawStyle (form, picture box, Printer)
  487. Global Const SOLID = 0                 ' 0 - Solid
  488. Global Const DASH = 1                  ' 1 - Dash
  489. Global Const DOT = 2                   ' 2 - Dot
  490. Global Const DASH_DOT = 3              ' 3 - Dash-Dot
  491. Global Const DASH_DOT_DOT = 4          ' 4 - Dash-Dot-Dot
  492. Global Const INVISIBLE = 5             ' 5 - Invisible
  493. Global Const INSIDE_SOLID = 6          ' 6 - Inside Solid
  494.  
  495. ' FillStyle (form, picture box, Printer)
  496. ' Global Const SOLID = 0               ' 0 - Solid
  497. Global Const TRANSPARENT = 1           ' 1 - Transparent
  498. Global Const HORIZONTAL_LINE = 2       ' 2 - Horizontal Line
  499. Global Const VERTICAL_LINE = 3         ' 3 - Vertical Line
  500. Global Const UPWARD_DIAGONAL = 4       ' 4 - Upward Diagonal
  501. Global Const DOWNWARD_DIAGONAL = 5     ' 5 - Downward Diagonal
  502. Global Const CROSS = 6                 ' 6 - Cross
  503. Global Const DIAGONAL_CROSS = 7        ' 7 - Diagonal Cross
  504.  
  505. ' LinkMode (controls)
  506. ' Global Const NONE = 0                ' 0 - None
  507. Global Const HOT = 1                   ' 1 - Hot
  508. Global Const COLD = 2                  ' 2 - Cold
  509.  
  510. ' LinkMode (form)
  511. ' Global Const NONE = 0                ' 0 - None
  512. Global Const SERVER = 1                ' 1 - Server
  513.  
  514. ' MousePointer (form, controls)
  515. Global Const DEFAULT = 0               ' 0 - Default
  516. Global Const ARROW = 1                 ' 1 - Arrow
  517. Global Const CROSSHAIR = 2             ' 2 - Cross
  518. Global Const IBEAM = 3                 ' 3 - I-Beam
  519. Global Const ICON_POINTER = 4          ' 4 - Icon
  520. Global Const SIZE_POINTER = 5          ' 5 - Size
  521. Global Const SIZE_NE_SW = 6            ' 6 - Size NE SW
  522. Global Const SIZE_N_S = 7              ' 7 - Size N S
  523. Global Const SIZE_NW_SE = 8            ' 8 - Size NW SE
  524. Global Const SIZE_W_E = 9              ' 9 - Size W E
  525. Global Const UP_ARROW = 10             ' 10 - Up Arrow
  526. Global Const HOURGLASS = 11            ' 11 - Hourglass
  527. Global Const NO_DROP = 12              ' 12 - No drop
  528.  
  529. ' ScaleMode (form, picture box, Printer)
  530. Global Const USER = 0                  ' 0 - User
  531. Global Const TWIPS = 1                 ' 1 - Twip
  532. Global Const POINTS = 2                ' 2 - Point
  533. Global Const PIXELS = 3                ' 3 - Pixel
  534. Global Const CHARACTERS = 4            ' 4 - Character
  535. Global Const INCHES = 5                ' 5 - Inch
  536. Global Const MILLIMETERS = 6           ' 6 - Millimeter
  537. Global Const CENTIMETERS = 7           ' 7 - Centimeter
  538.  
  539. ' ScrollBar (text box)
  540. ' Global Const NONE = 0                ' 0 - None
  541. Global Const HORIZONTAL = 1            ' 1 - Horizontal
  542. Global Const VERTICAL = 2              ' 2 - Vertical
  543. Global Const BOTH = 3                  ' 3 - Both
  544.  
  545. ' Value (check box)
  546. Global Const UNCHECKED = 0             ' 0 - Unchecked
  547. Global Const CHECKED = 1               ' 1 - Checked
  548. Global Const GRAYED = 2                ' 2 - Grayed
  549.  
  550. ' WindowState (form)
  551. Global Const NORMAL = 0                ' 0 - Normal
  552. Global Const MINIMIZED = 1             ' 1 - Minimized
  553. Global Const MAXIMIZED = 2             ' 2 - Maximized
  554.  
  555.